﻿<%
Response.Buffer = True ' 打开页面缓冲 
Dim dbloc,connstr
dbloc="RepairRec.mdb"			'连接调查数据库
connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath ("" & dbloc & "")		'连接维修信息数据库
Set conn=server.CreateObject("adodb.connection")
conn.open connstr

Sub CloseIt(obj)
	obj.Close
	Set obj=Nothing
End Sub
%><!--#include file="safe.asp"-->